﻿Imports System.Data
Partial Class WebForm_Manage_UserInfo
    Inherits BasePage
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim bbl As WorkFlow.BBL.WFInfoBBL = New WorkFlow.BBL.WFInfoBBL()
            Dim dt As DataTable = bbl.GetInfoData(dbName)
            If dt.Rows.Count > 0 Then
                txtUserInfo.Value = dt.Rows(0)("UserInfo").ToString
            End If
        End If


    End Sub

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim bbl As WorkFlow.BBL.WFInfoBBL = New WorkFlow.BBL.WFInfoBBL()
        bbl.SetUserInfoData(txtUserInfo.Value, ActualUID, dbName)
    End Sub
End Class
